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0. /* Indexed Nested Loop (INL) Approach */ 

1 . for each context interval ic in LC { 

2. witnessSet = { } 

3 . index probe Lwl to find first interval il 

4. such that descendant (il, ic) 

5 . repeat { 

6. matchPos = 1; 

7. m = [ il ] ; 

8 . repeat { 

9. probe (Lw(matchP os+1) U LM) to find 

10. i2 with i2. start = last (m) . end+1 ; 

11. if (no match found) break; 

12. if (i2 € Lw (matchPos+1) ) matchPos++; 

13. m = append (m, i2) ; 

14. /* Matched last word in phrase */ 

15. } until (matchPos = q) 

16. /* If a complete witness is found, save it */ 

17. if (matchPos = q) 

18. witnessSet = witnessSet U { m }; 

19. il = next (Lwl) 

20. } until not (descendant (il, ic) ) 

21. output (ic, witnessSet) 

22. } 

23. descendant (il, i2) { 

24. il. start > i2. start and il.end < i2.end 

25. } 
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0. /* Stack-Based Merge (SBM) Approach */ 

1. while (not (empty (L) ) ) { 

2. i = remove- f irst (L) ; 

3. if (i € LC) { /* i is context interval */ 

4. if (not (empty (S) ) ) && 

5 . not (descendant (i , top (S) . interval) ) ) 

6. output-and-clean(i) ; 

7 . new- interval ( i ) ; 

8. } else { /* i is word or ignored markup */ 

9. if (empty (S) ) break; 

10. if (not (descendant (i , top (S) . interval) ) ) 

11. output-and-clean(i) ; 

12. /* i is descendant of top (S) . interval */ 

13. if (i € LM) { 

14. extend-with-markup (i) ; 

15. if (i € La_j) 

16. /* i is nested annotation */ 

17. new- interval ( i) ; 

18. } else if (i € Lw pos) 

19. extend-with-word(i, pos) 

20. } 

21. } 

22. if (not (empty (S) ) ) output -and- clean ( (0 , 0) ) ; 
23 . 

24. output -and-clean (i) { 

25. repeat { 

26 . c = pop (S) ; 

27. if (c. interval € LC) /* context interval */ 

28 . output (c . interval , c .witnessSet) ; 

29. /* Propagate nested witnesses up stack */ 

30. top (S) .witnessSet = 

31. top (S) .witnessSet U c .witnessSet ; 

32. } until (empty (S) or 

33 . descendant (i , top (S) . interval) ) ; 

34. } 

35. new-interval (i) { 

36. push((i, {}, {}), S); 

37. } 
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38. discard-partial-match (m) { 

39. top(S) .matchSet = top (S) .matchSet - {m} 

40. } 

41. extend-with-markup (i) { 

42. for each m € top(S) .matchSet { 

43. if (i. start = 

44. last (m.partialWitness) . end + 1) 

45. m.partialWitness = append (m.partialWitness , i) ; 

46. else 

47 . discard-partial-match (m) 

48. } 

49. } 

50. extend-with-word (i , pos) { 

51. if (pos = 1) { 

52. top (S) .matchSet = top (S) .matchSet U ( [ i ] , 1) ; 

53. } else { 

54. for each m € top(S) .matchSet { 

55. if (m.matchPos + 1 = pos and i. start = 

56. last (m.partialWitness) .end + 1) { 

57. m.partialWitness = append (m.partialWitness , i) ; 

58. m.matchPos++; 

/* Once matched complete phrase */ 

59. if (m.matchPos = q) { 

60. /* Add to top witness set */ 

61. top(S) .witnessSet = top (S) . witnessSet 

U { m.partialWitness } 

62 . discard-partial -match (m) 

63. } 

64. } else 

65 . discard-partial -match (m) 

66. } 

67. } 

68. } 
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0. /* Procedure for word-proximity matching */ 

1. extend-with-word (i , pos) { 



2. for each m € top(S) .matchSet { 

3. if (m.matchPos + 1 = pos and i. start = 

4. last (m.partialWitness) . end + 1) { 

5. m.partialWitness = 

append (m.partialWitness, i) ; 

6. m.matchPos++ ; 

/* Once matched complete phrase */ 

7. if (m.matchPos = q) { 

8. /* Add to top witness set */ 

9. top (S) . witnessSet = top (S) . witnessSet 

U { m.partialWitness } 

10 . discard-partial-match (m) 

11. } 

12. } else if (m. skipped + i . start - 

last (m.partialWitness) .end - 1 <= k) { 

13 . m . skipped += i . start - 

last (m.partialWitness) . end - 1; 

14. m.partialWitness = 

append (m.partialWitness, i) ; 

15. } else { 

16 . discard-partial -match (m) 

17. } 

18. if (pos = 1) { 

19. top (S) .matchSet = 

20. top (S) .matchSet U ([ i ], 1, 0) ; 

21. } 

22. } 



23. } 
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